From: Vinícius Moraes <vinicius.moraes@eternodevir.com>
Date: Sat, 2 Aug 2025 23:52:27 +0000 (-0300)
Subject: Handle remote file names in cmuscheme.el
X-Git-Tag: archive/raspbian/1%30.2+1-2+rpi1^2~2^2~24^2~8
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https://%22%22/%22http:/www.example.com/cgi/%22https:/%22%22?a=commitdiff_plain;h=f2d3659cf50e3f3eb78e28835109884dc33bdd83;p=emacs.git

Handle remote file names in cmuscheme.el

* lisp/cmuscheme.el (scheme-load-file, scheme-compile-file): Use
'file-local-name' to handle file names on remote systems.
(Bug#79163)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 6528ac3fb7d..35198e79e73 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -416,7 +416,7 @@ in the next one.")
   (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
 				       (file-name-nondirectory file-name)))
   (comint-send-string (scheme-proc) (concat "(load \""
-					    file-name
+					    (file-local-name file-name)
 					    "\")\n")))
 
 (defun scheme-compile-file (file-name)
@@ -430,7 +430,7 @@ in the next one.")
   (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
 				       (file-name-nondirectory file-name)))
   (comint-send-string (scheme-proc) (concat "(compile-file \""
-					    file-name
+					    (file-local-name file-name)
 					    "\")\n")))